home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / ddsgen.arc / DDSGEN.CMD < prev    next >
Encoding:
Text File  |  1991-12-04  |  2.6 KB  |  35 lines
  1. /*---------------------------------------------------------------------       */
  2. /*  NAME ................... DDSGEN                                           */
  3. /*  FUNCTION ............... COMMAND SOURCE FOR DDS GENERATOR.                */
  4. /*                                                                            */
  5. /*  AUTHOR ................. TERRENCE W. MOYER                                */
  6. /*                           55 KEPPEL AVE                                    */
  7. /*                           WEST LAWN, PA. 19609                             */
  8. /*                                                                            */
  9. /*  DATE ................... OCT. 31, 1986                                    */
  10. /*                                                                            */
  11. /*  NOTE ................... CPP IS DDS01C                                    */
  12. /*---------------------------------------------------------------------       */
  13.              CMD        PROMPT('Generate File DDS')                             
  14.              PARM       KWD(FILE) TYPE(QUAL1) MIN(1) PROMPT('File +             
  15.                           name:')                                               
  16.              PARM       KWD(SRCFILE) TYPE(QUAL2) PROMPT('Source file +          
  17.                           to receive DDS:')                                     
  18.              PARM       KWD(MBR) TYPE(*NAME) LEN(10) DFT(*FILE) +               
  19.                           SPCVAL(*FILE) PROMPT('Source member Name:')           
  20.              PARM       KWD(REF) TYPE(*CHAR) LEN(5) RSTD(*YES) +
  21.                          DFT(NOREF) SPCVAL((REF R) (R) (NOREF N) (N)) +         
  22.                           PROMPT('REFFLD or ordinary DDS')                      
  23.              PARM       KWD(TEXT) TYPE(*CHAR) LEN(6) RSTD(*YES) +               
  24.                           DFT(NOTEXT) SPCVAL((TEXT T) (T) (NOTEXT N) +          
  25.                           (N)) PROMPT('TEXT or no text')                        
  26.  QUAL1:      QUAL       TYPE(*NAME) LEN(10) MIN(1)                              
  27.              QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +                        
  28.                           SPCVAL(*LIBL) PROMPT('File library:')                 
  29.  QUAL2:      QUAL       TYPE(*NAME) LEN(10) DFT(QDDSSRC) SPCVAL((D +            
  30.                           QDDSSRC))                                             
  31.              QUAL       TYPE(*NAME) LEN(10) DFT(*FILELIBR) +                    
  32.                           SPCVAL((*FILELIBR *FILE) (*LIBL)) +                   
  33.                           PROMPT('Source file library:')
  34. 
  35.